home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / htmlso_1 / open.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-09  |  2.9 KB  |  105 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    Caption         =   "Open"
  4.    ClientHeight    =   4845
  5.    ClientLeft      =   1275
  6.    ClientTop       =   915
  7.    ClientWidth     =   7275
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   177
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    ForeColor       =   &H80000008&
  18.    LinkTopic       =   "Form5"
  19.    PaletteMode     =   1  'UseZOrder
  20.    ScaleHeight     =   4845
  21.    ScaleWidth      =   7275
  22.    Begin VB.CommandButton cancel 
  23.       BackColor       =   &H80000005&
  24.       Caption         =   "Cancel"
  25.       Height          =   375
  26.       Left            =   3600
  27.       TabIndex        =   6
  28.       Top             =   4200
  29.       Width           =   2175
  30.    End
  31.    Begin VB.CommandButton save1 
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "Open"
  34.       Default         =   -1  'True
  35.       Height          =   375
  36.       Left            =   1080
  37.       TabIndex        =   5
  38.       Top             =   4200
  39.       Width           =   2175
  40.    End
  41.    Begin VB.DriveListBox Drive1 
  42.       Height          =   315
  43.       Left            =   2880
  44.       TabIndex        =   4
  45.       Top             =   3720
  46.       Width           =   4095
  47.    End
  48.    Begin VB.DirListBox Dir1 
  49.       Height          =   2790
  50.       Left            =   2880
  51.       TabIndex        =   3
  52.       Top             =   600
  53.       Width           =   4095
  54.    End
  55.    Begin VB.FileListBox File1 
  56.       Height          =   3015
  57.       Left            =   240
  58.       Pattern         =   "*.htm*"
  59.       TabIndex        =   1
  60.       Top             =   600
  61.       Width           =   2295
  62.    End
  63.    Begin VB.TextBox filename 
  64.       Height          =   285
  65.       Left            =   240
  66.       TabIndex        =   0
  67.       Top             =   120
  68.       Width           =   2295
  69.    End
  70.    Begin VB.Label path 
  71.       BackStyle       =   0  'Transparent
  72.       BorderStyle     =   1  'Fixed Single
  73.       Height          =   255
  74.       Left            =   2880
  75.       TabIndex        =   2
  76.       Top             =   120
  77.       Width           =   4095
  78.    End
  79. Attribute VB_Name = "Form5"
  80. Attribute VB_GlobalNameSpace = False
  81. Attribute VB_Creatable = False
  82. Attribute VB_PredeclaredId = True
  83. Attribute VB_Exposed = False
  84. Option Explicit
  85. Sub cancel_Click()
  86. Unload Me
  87. End Sub
  88. Sub Dir1_Change()
  89. File1 = Dir1
  90. path = Dir1.path
  91. End Sub
  92. Sub File1_Click()
  93. filename.Text = File1
  94. End Sub
  95. Sub save1_Click()
  96. Dim l0036 As Variant
  97. Dim l003C As String * 10000
  98. l0036 = Form5.path.Caption + "\" + Form5.filename.Text
  99.     Open l0036 For Random As #1 Len = Len(l003C)
  100.         Get #1, , l003C
  101.         Form1.main.Text = l003C
  102.         Close #1
  103.         Unload Me
  104. End Sub
  105.